home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume2 / unix / ls20.1 < prev    next >
Internet Message Format  |  1988-12-12  |  61KB
  1. Path: xanth!ames!mailrus!ulowell!page
  2. From: page@swan.ulowell.edu (Bob Page)
  3. Newsgroups: comp.sources.amiga
  4. Subject: v02i097:  ls - unix-like directory lister v2.0
  5. Message-ID: <10673@swan.ulowell.edu>
  6. Date: 12 Dec 88 22:05:59 GMT
  7. Organization: University of Lowell, Computer Science Dept.
  8. Lines: 2325
  9. Approved: page@swan.ulowell.edu
  10.  
  11. Submitted-by: nop@cup.portal.com
  12. Posting-number: Volume 2, Issue 97
  13. Archive-name: unix/ls20.1
  14.  
  15. Here is a new version of Justin McCormick's "ls" program.
  16. Hope the net enjoys the program -- I sure do!
  17.  
  18. #    This is a shell archive.
  19. #    Remove everything above and including the cut line.
  20. #    Then run the rest of the file through sh.
  21. #----cut here-----cut here-----cut here-----cut here----#
  22. #!/bin/sh
  23. # shar:    Shell Archiver
  24. #    Run the following text with /bin/sh to create:
  25. #    c2.a
  26. #    ls.c
  27. #    ls.doc
  28. #    ls.h
  29. #    ls.lnk
  30. #    lssup.a
  31. #    makefile
  32. # This archive created: Mon Dec 12 17:01:16 1988
  33. cat << \SHAR_EOF > c2.a
  34. *
  35. * C initial startup procedure under AmigaDOS
  36. * 
  37. * Use the following command line to make c.o
  38. * asm -u -iINCLUDE: c.a
  39. *
  40. * Use the following command line to make cres.o
  41. * asm -u -dRESIDENT -iINCLUDE: -ocres.o c.a
  42.  
  43.     IDNT    "c2.a"
  44.  
  45.     OPTION    L
  46.     LISTSYMS
  47.     BASEREG    B
  48.     SMALLOBJ
  49.     OPTIMON
  50.     ADDSYM
  51.     DEBUG
  52.  
  53. * --------------------------------------------------------------------- *
  54. * Macros:
  55. * --------------------------------------------------------------------- *
  56. SYS    MACRO    *
  57.     IFGT    NARG-2
  58.     FAIL    !!!
  59.     ENDC
  60.     IFEQ    NARG-2
  61.     MOVE.L    \2,a6
  62.     ENDC
  63.     JSR    _LVO\1(a6)
  64.     ENDM
  65.  
  66. XLVO    MACRO    *
  67.     XREF    _LVO\1
  68.     ENDM
  69.  
  70. * --------------------------------------------------------------------- *
  71. * Equates:
  72. * --------------------------------------------------------------------- *
  73. RESIDENT    EQU    1
  74.  
  75. MEMF_PUBLIC    EQU    $1
  76. MEMF_CLEAR    EQU    $10000
  77. MEMFLAGS    EQU    MEMF_CLEAR+MEMF_PUBLIC
  78. AbsExecBase    EQU    $0004
  79. cli_CommandName    EQU    $10
  80. pr_CLI        EQU    $AC
  81. pr_CurrentDir    EQU    $98
  82. ThisTask    EQU    $114
  83.  
  84. _LVOCloseLibrary EQU    $FE62
  85. _LVOAllocMem    EQU    $FF3A
  86. _LVOFreeMem    EQU    $FF2E
  87. _LVOSetSignal    EQU    $FECE
  88. _LVOOpenLibrary    EQU    $FDD8
  89.  
  90.     XREF    _DOSBase
  91.     XREF    _LinkerDB        ; linker defined base value
  92.     XREF    __BSSBAS        ; linker defined base of BSS
  93.     XREF    __BSSLEN        ; linker defined length of BSS
  94.  
  95.      IFD    RESIDENT
  96.     XREF    _RESLEN
  97.     XREF    _RESBASE
  98.     XREF    _NEWDATAL
  99.      ENDC
  100.     
  101.     XREF    __main            ; Name of C program to start with.
  102.     XREF    _MemCleanup        ; Free all allocated memory
  103.     XREF    ___fpinit        ; initialize floating point
  104.     XREF    ___fpterm        ; terminate floating point
  105.  
  106. * --------------------------------------------------------------------- *
  107.     SECTION    TEXT,CODE
  108. * --------------------------------------------------------------------- *
  109.     XDEF    zzstart
  110. zzstart:
  111.     move.l    a0,a2            ; save command pointer
  112.     move.l    d0,d2            ; and command length
  113.     lea    _LinkerDB,a4        ; load base register
  114.  
  115.      IFND    RESIDENT
  116.     lea    __BSSBAS,a3        ; get base of BSS
  117.     moveq    #0,d1
  118.     move.l    #__BSSLEN,d0        ; get length of BSS in longwords
  119.      bra.b    clr_lp             ; and clear for length given
  120. clr_bss move.l    d1,(a3)+
  121. clr_lp    dbf    d0,clr_bss
  122.      ENDC
  123.  
  124.      IFD    RESIDENT
  125.     movea.l    AbsExecBase,a6
  126.  
  127.     movem.l    d0-d1/a0-a2,-(sp)
  128.     sub.l    #_RESBASE,a4
  129.     move.l    #_RESLEN,d0
  130.     move.l    #MEMFLAGS,d1
  131.     SYS    AllocMem
  132.     tst.l    d0
  133.      beq.w    abort
  134.     move.l    d0,a0
  135.     move.l     d0,a2
  136.  
  137. ;a2 now has difference
  138.     move.l    d0,a1
  139.     move.l    #_NEWDATAL,d0
  140. ;copy data over
  141. cpy:    move.l    (a4)+,(a0)+
  142.     subq.l    #1,d0
  143.      bne    cpy
  144. ;a4 now points at number of relocs
  145.     move.l    (a4)+,d0
  146. reloc:     beq.b    nreloc
  147.     move.l    a1,a0
  148.     add.l    (a4)+,a0        ; a0 now has add of reloc
  149.     add.l    (a0),a2
  150.     move.l    a2,(a0) 
  151.     move.l    a1,a2            ; restore offset
  152.     subq.l    #1,d0
  153.     bra    reloc
  154.     
  155. nreloc: move.l    a1,a4            ; set up new base register
  156.     add.l    #_RESBASE,a4
  157.     movem.l    (sp)+,d0-d1/a0-a2
  158.      ENDC
  159.  
  160.     movea.l    AbsExecBase,a6
  161.     move.l    a6,_SysBase(a4)
  162.     move.l    sp,__StackPtr(a4)    ; Save stack ptr
  163.     clr.l    _WBenchMsg(a4)
  164.  
  165. * get the address of our task
  166.     move.l    ThisTask(a6),a3
  167.  
  168. *-    clear any pending signals
  169.     moveq    #0,d0
  170.     move.l    #$00003000,d1
  171.     SYS    SetSignal
  172.     
  173. * are we running as a son of Workbench?
  174.     move.l    pr_CurrentDir(a3),_curdir(a4)
  175.  
  176.     IFD    WBENCH
  177.     tst.l    pr_CLI(a3)
  178.      beq    fromWorkbench
  179.     ENDC
  180.  
  181. *=======================================================================
  182. *====== CLI Startup Code ===============================================
  183. *=======================================================================
  184. *
  185. ; Entry: d2 = command length
  186. ;     a2 = Command pointer
  187. fromCLI:
  188.     move.l    sp,d0             ; get top of stack
  189.     sub.l    4(sp),d0        ; compute bottom 
  190.     add.l    #128,d0             ; allow for parms overflow
  191.     move.l    d0,__base(a4)        ; save for stack checking
  192.  
  193. * attempt to open DOS library:
  194.     bsr.w    openDOS
  195.  
  196. * find command name:
  197.     move.l    pr_CLI(a3),a0
  198.     add.l    a0,a0             ; bcpl pointer conversion
  199.     add.l    a0,a0
  200.     move.l    cli_CommandName(a0),a1
  201.     add.l    a1,a1             ; bcpl pointer conversion
  202.     add.l    a1,a1
  203.  
  204. * collect parameters:
  205.     move.l    d2,d0            ; get command line length
  206.     moveq.l    #0,d1
  207.     move.b    (a1)+,d1
  208.     move.l    a1,__ProgramName(a4)
  209.     add.l    d1,d0            ; add length of command name
  210.     addq.l    #1,d0            ; allow for space after command 
  211.  
  212.     clr.w    -(sp)            ; set null terminator for command line
  213.     addq.l    #1,d0            ; force to even number of bytes
  214.     andi.w    #$fffe,d0        ; (round up)
  215.     sub.l    d0,sp            ; make room on stack for command line
  216.     subq.l    #2,d0
  217.     clr.w    0(sp,d0)
  218.  
  219. * copy command line onto stack
  220.     move.l    d2,d0            ; get command line length
  221.     subq.l    #1,d0
  222.     add.l    d1,d2
  223.  
  224. copy_line:
  225.     move.b    0(a2,d0.w),0(sp,d2.w)    ; copy command line to stack
  226.     subq.l    #1,d2
  227.     dbf    d0,copy_line
  228.     move.b    #' ',0(sp,d2.w)         ; add space between command and parms
  229.     subq.l    #1,d2
  230.  
  231. copy_cmd:
  232.     move.b    0(a1,d2.w),0(sp,d2.w)    ; copy command name to stack
  233.     dbf    d2,copy_cmd
  234.     move.l    sp,a1
  235.     move.l    a1,-(sp)        ; push command line address
  236.  
  237.     IFD    WBENCH
  238.     bra    main            ; call C entrypoint
  239. * --------------------------------------------------------------------- *
  240. * Workbench Startup Code
  241. * --------------------------------------------------------------------- *
  242. fromWorkbench:
  243.     move.l    TC_SPLOWER(a3),__base(a4) ; set base of stack
  244.     moveq     #127,d0
  245.     addq.l    #1,d0            ; Efficient way of getting in 128
  246.     add.l    d0,__base(a4)        ; allow for parms overflow
  247.  
  248. * open the DOS library:
  249.     bsr.w    openDOS
  250.  
  251. * we are now set up. wait for a message from our starter
  252.     lea    pr_MsgPort(a3),a0    ; our process base
  253.     SYS    WaitPort
  254.     lea    pr_MsgPort(a3),a0    ; our process base
  255.     SYS    GetMsg
  256.     move.l    d0,_WBenchMsg(a4)
  257.     move.l    d0,-(sp)
  258.  
  259.     move.l    d0,a2            ; get first argument
  260.     move.l    sm_ArgList(a2),d0
  261.      beq    do_cons
  262.     move.l    _DOSBase(a4),a6
  263.     move.l    d0,a0
  264.     move.l    wa_Lock(a0),d1
  265.     move.l    d1,_curdir(a4)
  266.     SYS    CurrentDir
  267. do_cons:
  268.     move.l    sm_ToolWindow(a2),d1    ; get the window argument
  269.      beq    do_main
  270.     move.l    #MODE_OLDFILE,d2
  271.     SYS    Open
  272.     move.l    d0,_stdin(a4)
  273.      beq    do_main
  274.     lsl.l    #2,d0
  275.     move.l    d0,a0
  276.     move.l    fh_Type(a0),pr_ConsoleTask(a3)
  277. do_main:
  278.     move.l    _WBenchMsg(a4),a0    ; get address of workbench message
  279.     move.l    a0,-(sp)        ; push argv
  280.     pea    _NULL(a4)        ; push argc
  281.     move.l    sm_ArgList(a0),a0    ; get address of arguments
  282.     move.l    wa_Name(a0),__ProgramName(a4)     ; get name of program
  283.     ENDC
  284.  
  285. * --------------------------------------------------------------------- *
  286. * Common CLI/WBENCH code
  287. * --------------------------------------------------------------------- *
  288. main:
  289.      IFD    FLOAT
  290.     jsr    ___fpinit(pc)        ; Initialize floating point
  291.      ENDC
  292.     jsr    __main(pc)        ; call C entrypoint
  293.     moveq.l    #0,d0            ; set successful status
  294.     bra.b    exit2
  295.  
  296.     XDEF    _XCEXIT
  297. _XCEXIT:
  298.     move.l    4(sp),d0        ; extract return code
  299.  
  300.     XDEF    xXCEXIT
  301. xXCEXIT:
  302. exit2:
  303.      IFD    ERRTRAPS
  304.     move.l    d0,-(sp)
  305.     move.l    __ONEXIT(a4),d0        ; exit trap function?
  306.      beq.b    exit3
  307.     move.l    d0,a0
  308.     jsr    (a0)
  309. exit3:
  310.      ENDC
  311.  
  312.      IFD    MALLOC
  313.     jsr    _MemCleanup(pc)        ; cleanup leftover memory alloc.
  314.      ENDC
  315.  
  316.     movea.l    AbsExecBase,a6
  317.     move.l    _DOSBase(a4),a1
  318.     SYS    CloseLibrary        ; close Dos library
  319.  
  320.      IFD    FLOAT
  321.     jsr    ___fpterm(pc)        ; clean up any floating point
  322.      ENDC
  323.  
  324.      IFD    WBENCH
  325. done_1c:
  326. * if we ran from CLI, skip workbench cleanup:
  327.     tst.l    _WBenchMsg(a4)
  328.      beq    exitToDOS
  329.     move.l    _stdin(a4),d1
  330.      beq.b    done_4
  331.     SYS    Close
  332. done_4:
  333. * return the startup message to our parent
  334. *     we forbid so workbench can't UnLoadSeg() us
  335. *     before we are done:
  336.     movea.l    AbsExecBase,a6
  337.     SYS    Forbid
  338.     move.l     _WBenchMsg(a4),a1
  339.     SYS    ReplyMsg
  340.      ENDC
  341.  
  342. * this rts sends us back to DOS:
  343. exitToDOS:
  344.      IFD    RESIDENT
  345.     move.l    #_RESLEN,d0
  346.     move.l     a4,a1
  347.     sub.l    #_RESBASE,a1
  348.     movea.l    AbsExecBase,a6
  349.     SYS    FreeMem
  350.      ENDC
  351.     
  352.     move.l    (sp)+,d0
  353.     movea.l    __StackPtr(a4),sp    ; restore stack ptr
  354.  
  355.     XDEF    xchkabort
  356. xchkabort:
  357.     rts
  358.  
  359.      IFD    RESIDENT
  360. abort:
  361.     movem.l    (sp)+,d0-d1/a0-a2
  362.     rts
  363.      ENDC
  364.  
  365. * --------------------------------------------------------------------- *
  366. noDOS:
  367.     moveq.l    #100,d0
  368.     bra    exit2
  369.  
  370. * --------------------------------------------------------------------- *
  371. *    Open the DOS library:
  372. * --------------------------------------------------------------------- *
  373. openDOS:
  374.     lea    DOSName(pc),a1
  375.     moveq.l #0,d0
  376.     SYS    OpenLibrary
  377.     move.l    d0,_DOSBase(a4)
  378.      beq    noDOS
  379.     rts
  380.  
  381. DOSName:    dc.b    'dos.library',0
  382.  
  383. * --------------------------------------------------------------------- *
  384.     section __MERGED,BSS
  385. * --------------------------------------------------------------------- *
  386.  
  387.     XDEF    _NULL,_SysBase,_WBenchMsg
  388.     XDEF    _curdir,__mbase,__mnext,__msize,__tsize
  389.     XDEF    __oserr,__OSERR
  390.      IFD    FLOAT
  391.     XDEF    __FPERR
  392.     XDEF    __SIGFPE
  393.      ENDC
  394.      IFD    ERRTRAPS
  395.     XDEF    __ONERR,__ONEXIT,__ONBREAK
  396.     XDEF    __SIGINT
  397.      ENDC
  398.     XDEF    _stdin
  399.     XDEF    __ProgramName,__StackPtr,__base
  400.  
  401. * --------------------------------------------------------------------- *
  402. _NULL        ds.l    1         ; Huh?
  403. __base        ds.l    1         ; base of stack
  404. __mbase        ds.l    1         ; base of memory pool
  405. __mnext        ds.l    1         ; next available memory location
  406. __msize        ds.l    1         ; size of memory pool
  407. __tsize        ds.l    1         ; total size?
  408. __oserr
  409. __OSERR        ds.l    1
  410.      IFD    FLOAT
  411. __FPERR        ds.l    1
  412. __SIGFPE    ds.l    1
  413.      ENDC
  414.      IFD    ERRTRAPS
  415. __SIGINT    ds.l    1
  416. __ONERR        ds.l    1
  417. __ONEXIT    ds.l    1
  418. __ONBREAK    ds.l    1
  419.      ENDC
  420. _curdir        ds.l    1
  421. _SysBase    ds.l    1
  422. _WBenchMsg    ds.l    1
  423. __StackPtr    ds.l    1
  424. _stdin        ds.l    1
  425. __ProgramName    ds.l    1
  426.  
  427. * --------------------------------------------------------------------- *
  428.     END
  429. * --------------------------------------------------------------------- *
  430. SHAR_EOF
  431. cat << \SHAR_EOF > ls.c
  432. /* --------------------------------------------------------------------- *
  433.   LS.C -- an "improved" directory listing utility to replace the
  434.   AmigaDOS DIR and LIST commands.
  435.  
  436.   V1.0   August 1986 Written from scratch by Justin V. McCormick.
  437.   V2.0 November 1988 Revised for Lattice 5.0 and made 1.3 compatible.
  438.  
  439. Notice:
  440.  
  441.   This program is placed in the public domain with the understanding
  442. that the author makes no claims or guarantees with regard to its
  443. suitability for any given application, and that the author assumes no
  444. responsibility for damages incurred by its usage.  Any resemblance
  445. of this program to any other program, either living or dead, is
  446. purely coincidental.
  447.  
  448.   Feel free to steal this code and make millions of dollars from its sale
  449. or commercial use, but please give credit where credit is due.
  450.  
  451. Synopsis:
  452.  
  453.   Features adaptive columnar listing, versatile sort options,
  454. UNIX-style pattern matching, recursive subdirectory listing, etc!
  455.  
  456. Usage:
  457.     ls [options] [path1] [path2] ...
  458.  
  459. Options:
  460.     -?    Help!
  461.     -c    Show file comment info, -c implies -l
  462.     -d    Show directory names only
  463.     -f    Show filenames only
  464.     -l      Long verbose listing showing filesizes and dates
  465.     -n    No sort, just spit them out in the order ExNext() returns
  466.     -r    Reverse sort direction
  467.     -s    Sorted by size smallest to largest
  468.     -t    Sorted by date oldest to newest
  469.     -R    Recursive descent of subdirectories
  470.  
  471.   All arguments are optional.  Default is to give short columnar listing,
  472. sorted alphabetically, using the current directory.  Alphabetizing is case
  473. insensitive.
  474.  
  475.   Patterns may be matched in the given names, using the UNIX-style '*'
  476. to wildcard any number of characters, and '?' to wildcard a single
  477. character.  If you need to specify a pathname with spaces in it like
  478. "Wombat Soup", you need to put quotes around it.  LS can process up to 30
  479. separate pathname patterns in one command line.
  480.  
  481. Bugs:
  482.  
  483.   Redirecting the shortlist output to PRT: gives undesirable results,
  484. since I am using relative cursor positioning commands to format the
  485. screen output.  I thought about using an array to store a virtual
  486. screen, but my primary goals were to keep the size down and display
  487. speed at a maxiumum.  Also, LS cannot pattern match devices (like "dh*:")
  488. or support multiple levels of pattern matching (like "dh0:?/L*.info").
  489. This would involve another level of recursion and groking the Device List.
  490.  
  491. Changes From 1.0 to 2.0:
  492.  
  493.  o Source code prototyped, linted, traced, optimized, tweaked, etc.
  494.  o Made resident ("pseudo-pure") by linking with cres.o from LC 5.0.
  495.  o High-volume routines recoded in assembly (lssup.a).
  496.  o Now handles multiple paths/files on a command line, up to 30.
  497.  o New sort flags, including no sort.
  498.  o Enhanced wildcards, understands complex *.?*.* expressions now.
  499.  o More efficient ExNext() performance, less ram used for recursion.
  500.  o SIGBREAKF_CTRL_C signal (Ctrl-C) cleanly aborts at any point now.
  501.  o Command line parser handles quoted pathnames now (LC 5.0 benefit).
  502.  o Short listing finally auto-adjusts to new console window sizes!
  503.  o Pen color escape codes bypassed when redirecting long output.
  504.  o Sorting by size or date is also subsorted alphabetically now.
  505.  o Long listing shows new 1.3 file attributes, plus comment indicator.
  506.  o File dates are now in international format, YY-MM-DD.
  507.  o Fixed listings with files datestamped after 99-12-31 (overflow).
  508.  o Fixed listings with files datestamped before 78-01-01 (time < 0).
  509.  
  510. * --------------------------------------------------------------------- */
  511.  
  512. #include "ls.h"
  513.  
  514. /* Structure used to hold file info in a linked list */
  515. struct FibEntry
  516. {
  517.   struct FibEntry *NextFib;
  518.   struct FibEntry *LastFib;
  519.   struct FileInfoBlock *Fibp;
  520. };
  521.  
  522. /* Externs from lssup.a */
  523. /*lint +fva2 */
  524. extern int __stdargs asprintf (char *, char *,...);
  525. /*lint -fva2 */
  526.  
  527. extern __asm void SortFibs (R_D0 long, R_D1 long, R_A0 struct FibEntry *);
  528. extern __stdargs long iswild (char *);
  529. extern __stdargs long wildmatch (char *, char *);
  530. extern __stdargs char *FibFileDate (struct DateStamp *);
  531. extern __stdargs void GetWinBounds(long *, long *);
  532.  
  533. /* Local CODE */
  534. struct FibEntry *GetDir (BPTR, struct FileInfoBlock *);
  535. struct FibEntry *AllocFib (void);
  536. void CleanUp (char *, long);
  537. void ColorPen2 (void);
  538. void CursorOff (void);
  539. void CursorOn (void);
  540. void DirIt (BPTR, char *);
  541. void FreeAllFibs (struct FibEntry *);
  542. void FreeFib (struct FibEntry *);
  543. void LListDir (struct FibEntry *);
  544. void LListEntry (struct FileInfoBlock *);
  545. void LongList (long *, long *, struct FibEntry *);
  546. void main (int, char **);
  547. void PagePrompt (long);
  548. void ResetPen (void);
  549. void SListDir (struct FibEntry *);
  550. void TestBreak (void);
  551. void Usage (void);
  552. void WCHR (char *);
  553. void WSTR (char *);
  554.  
  555. BPTR Out = 0L;
  556. BPTR In = 0L;
  557. BPTR lockp = 0L;
  558. struct FileInfoBlock *GFibp = 0L;
  559.  
  560. long BREAKFLAG = 0;
  561. long CONSOLE = 0;
  562. long dircount = 0;
  563. long DIRFILEFLAG = 0;
  564. long errstat = 0;
  565. long filecount = 0;
  566. long LISTALL = 0;
  567. long LONGLIST = 0;
  568. long maxnamlen = 0;
  569. long NOSORTFLAG = 0;
  570. long NOTEFLAG = 0;
  571. long PATHNAMED = 0;
  572. long REVFLAG = 0;
  573. long sortkey = 0;
  574. long WILDCARD = 0;
  575. long CurWinRows = 20L;
  576. long CurWinCols = 77L;
  577.  
  578. char filename[160];
  579. char pattern[160];
  580. char workstr[160];
  581.  
  582. static char Author[] = "\23333mLS 2.0\2330m by Justin V. McCormick 1988";
  583. static char usage[] = "\nUsage: ls [-cdflnrstR] [path1] [path2] ...\n";
  584.  
  585. /* -------------------------------------------------------------------- */
  586. void main (argc, argv)
  587.   int argc;
  588.   char **argv;
  589. {
  590.   struct Process *procp;
  591.   long cnt, i;
  592.  
  593.   if (argc == 0)            /* son of Workbench -- no go! */
  594.     exit (0);
  595.  
  596. /* Grab FileHandles for input and output to console (or redirection file) */
  597.   In = Input ();
  598.   Out = Output ();
  599.   CONSOLE = (IsInteractive (Out) == 0L) ? 0L : 1L; /* Is this console output? */
  600.  
  601. /* Allocate a global FileInfoBlock for ExNext() */
  602.   if ( (GFibp = (struct FileInfoBlock *)AllocMem((long)sizeof(struct FileInfoBlock), MEMF_PUBLIC | MEMF_CLEAR)) == 0L)
  603.     CleanUp("No RAM?", 103L);
  604.  
  605. /* Parse command line arguments <ugh> */
  606.   cnt = 1;
  607.   if (argc >= 2)
  608.   {
  609.     if (argv[1][0] == '-')
  610.     {
  611.       cnt++;
  612.       for (i = strlen(argv[1]) - 1; i > 0; i--)
  613.       {
  614.         switch (argv[1][i])
  615.         {
  616.       case 'c': 
  617.         LONGLIST = 1;
  618.         NOTEFLAG = 1;
  619.         break;
  620.           case 'd':
  621.             DIRFILEFLAG |= 1;
  622.             break;
  623.           case 'f':
  624.             DIRFILEFLAG |= 2;
  625.             break;
  626.       case 'l': 
  627.         LONGLIST = 1;
  628.         break;
  629.       case 'n':
  630.         NOSORTFLAG = 1;
  631.         break;
  632.       case 'r':
  633.         REVFLAG = 1;
  634.         break;
  635.       case 's':
  636.         sortkey = 1;
  637.         break;
  638.       case 't': 
  639.         sortkey = 2;
  640.         break;
  641.       case 'R': 
  642.         LISTALL = 1;
  643.         break;
  644.       case '?': 
  645.         Usage ();
  646.         break;
  647.       default: 
  648.         (void) asprintf (workstr, "Unknown option \'%c\'\n", argv[1][i]);
  649.         WSTR (workstr);
  650.         Usage ();
  651.         break;
  652.     }
  653.       }
  654.     }
  655.   }
  656.  
  657. /* Clean up the state flags */
  658.   if ( (argc - cnt) > 1)
  659.     LISTALL |= 2;
  660.  
  661.   if (DIRFILEFLAG == 0)
  662.     DIRFILEFLAG = 3;
  663.  
  664. /* Loop through the remaining args now */
  665.   do
  666.   {
  667.     PATHNAMED = 0;
  668.     if (cnt < argc)
  669.     {
  670.       (void) stpcpy (pattern, argv[cnt]);
  671.       PATHNAMED = 1;
  672.     }
  673.  
  674.     if (PATHNAMED)            /* If user specified a pathname    */
  675.     {
  676.       WILDCARD = iswild (pattern);     /* check for wildcards         */
  677.  
  678.       if (WILDCARD)            /* If wildcards, separate    */
  679.       {                    /* pattern from pathname    */
  680.         for (i = (strlen (pattern) - 1); i >= 0; i--)
  681.         {
  682.           if (pattern[i] == '/' || pattern[i] == ':')
  683.           {
  684.         (void) strncpy (filename, pattern, (UWORD) (i + 1));
  685.         filename[i + 2] = (BYTE) 0;
  686.         (void) stpcpy (workstr, &pattern[i + 1]);
  687.         (void) stpcpy (pattern, workstr);
  688.         break;
  689.           }
  690.         }
  691. /* Disallow wildcards in pathname */
  692.         if (iswild (filename))
  693.           CleanUp ("Sorry, can't pattern match paths", 5L);
  694.       }
  695.       else                /* No wildcards, use filename as is */
  696.       {
  697.         (void) stpcpy (filename, pattern);
  698.       }
  699.  
  700. /* If the user specified a pathname, try to grab a FileLock on it */
  701. /* Discard trailing slash if silly Joe User put one there */
  702.       if (filename[1] != 0 && filename[strlen (filename) - 1] == '/')
  703.         filename[strlen (filename) - 1] = (BYTE) 0;
  704.  
  705.       lockp = Lock (filename, ACCESS_READ);
  706.  
  707.       if (!lockp)            /* Can't Lock it!         */
  708.       {
  709.         errstat = IoErr ();
  710.         (void) strcat (filename, " not found");
  711.         CleanUp (filename, (long)errstat);
  712.       }
  713.     }
  714.     else
  715.     {
  716. /*
  717.  * If no filename was specified, steal Lock on current directory from
  718.  * CLI process task info.  We durn well better get something useful back;
  719.  * we don't do any error checking on the stolen Lock.
  720.  */
  721.       procp = (struct Process *) FindTask (0L);
  722.       lockp = procp->pr_CurrentDir;
  723.       filename[0] = 0;            /* Tell DirIt() to use current dir */
  724.     }
  725.  
  726. /* Get the directory for this path, display it */
  727.     DirIt (lockp, filename);
  728.  
  729. /* Release the lock, bump our arg counter */
  730.     if (lockp != 0 && PATHNAMED != 0)
  731.       UnLock (lockp);
  732.     lockp = 0L;
  733.     cnt++;
  734.  
  735.     if (cnt < argc)
  736.       WCHR("\n");
  737.   } while (cnt < argc && BREAKFLAG == 0);
  738.  
  739.   CleanUp ("", 0L);
  740. }
  741.  
  742. /* -------------------------------------------------------------------- */
  743. /* Deallocate and close everything                     */
  744. /* -------------------------------------------------------------------- */
  745. void CleanUp (exit_msg, exit_status)
  746.   char *exit_msg;
  747.   long exit_status;
  748. {
  749.   if (lockp && PATHNAMED)
  750.     UnLock (lockp);
  751.  
  752.   if (GFibp != 0L)
  753.     FreeMem(GFibp, (long)sizeof(struct FileInfoBlock));
  754.  
  755.   if (exit_status)
  756.   {
  757.     (void) asprintf (workstr, "ls: %s, Error #%ld\n", exit_msg, exit_status);
  758.     WSTR (workstr);
  759.   }
  760.   exit ((int) exit_status);
  761. }
  762.  
  763. /* -------------------------------------------------------------------- */
  764. void DirIt (lockp, dirname)
  765.   BPTR lockp;
  766.   char *dirname;
  767. {
  768.   BPTR  tlockp;
  769.   struct FibEntry *fibheadp;
  770.   struct FibEntry *tfibp;
  771.   char *subdir;
  772.   long strsize;
  773.  
  774. /* Try to fill FileInfoBlock, bomb if not readable for some reason */
  775.   if (!Examine (lockp, GFibp))
  776.   {
  777.     (void) asprintf (workstr, "Can't examine file or directory\n");
  778.     WSTR (workstr);
  779.     return;
  780.   }
  781.  
  782. /* Put directory header if this is a recursive listing */
  783.   if (dirname[0] && LISTALL > 0)
  784.   {
  785.     if (CONSOLE != 0)
  786.      (void)asprintf(workstr, "\23330;41m %s \2330m\n", dirname);
  787.     else
  788.      (void)asprintf(workstr, "%s\n", dirname);
  789.     WSTR(workstr);
  790.   }
  791.  
  792. /* If this is a single file list it verbosely */
  793.   if (GFibp->fib_EntryType < 0 && (DIRFILEFLAG & 2) != 0)
  794.   {
  795.     LListEntry (GFibp);
  796.   }
  797.   else
  798.   {
  799. /* Otherwise do a directory     */
  800. /* Allocate and initialize a FibEntry head node */
  801.     if ( (fibheadp = GetDir (lockp, GFibp)) != 0L && BREAKFLAG == 0)
  802.     {
  803.       if (NOSORTFLAG == 0)
  804.         SortFibs ((long)sortkey, REVFLAG, fibheadp);
  805.  
  806.       if (LONGLIST == 0)
  807.     SListDir (fibheadp);
  808.       else
  809.     LListDir (fibheadp);
  810.  
  811.       if ( (LISTALL & 1) != 0)
  812.       {
  813.         tfibp = fibheadp;
  814.     do
  815.     {
  816.       if (tfibp->Fibp->fib_EntryType > 0)
  817.       {
  818.         strsize = (strlen (dirname) + strlen (tfibp->Fibp->fib_FileName) + 2);
  819.         subdir = (char *) AllocMem ((LONG)strsize, 0L);
  820.         if (strlen (dirname) != 0)
  821.         {
  822.           (void) stpcpy (subdir, dirname);
  823.           if (dirname[strlen (dirname) - 1] != ':')
  824.         (void) strcat (subdir, "/");
  825.         }
  826.         (void) strcat (subdir, tfibp->Fibp->fib_FileName);
  827.         tlockp = Lock (subdir, ACCESS_READ);
  828.         if (tlockp == 0L)
  829.         {
  830.           WSTR (subdir);
  831.           WSTR (" -- can't lock it!\n");
  832.           break;
  833.         }
  834.         else
  835.         {
  836.           WCHR ("\n");        /* Put a blank line between directories */
  837.           DirIt (tlockp, subdir);
  838.           UnLock (tlockp);
  839.           FreeMem (subdir, (LONG)strsize);
  840.         }
  841.       }
  842.       tfibp = tfibp->NextFib;
  843.     } while (tfibp != fibheadp && BREAKFLAG == 0);
  844.       }
  845.     }
  846. /* Clean up */
  847.     FreeAllFibs (fibheadp);
  848.   }
  849. }
  850.  
  851. /* -------------------------------------------------------------------- */
  852. /* Allocate and fill a linked list of FileInfoBlocks             */
  853. /* -------------------------------------------------------------------- */
  854. struct FibEntry *GetDir (lockp, fibp)
  855.   BPTR lockp;
  856.   struct FileInfoBlock *fibp;
  857. {
  858.   long nextstat;
  859.   long tempnamlen;
  860.   struct FibEntry *tfibp;
  861.   struct FibEntry *headfib;
  862.  
  863.   maxnamlen = dircount = filecount = 0L;
  864.   headfib = 0L;
  865.  
  866.   do
  867.   {
  868.     TestBreak();
  869.     if (BREAKFLAG != 0)
  870.       return(headfib);
  871.     nextstat = ExNext (lockp, fibp);
  872.  
  873.     if (nextstat != 0)    /* We got something */
  874.     {
  875. /* See if it matches our pattern */
  876.       if (!WILDCARD || wildmatch (fibp->fib_FileName, pattern))
  877.       {
  878.  
  879. /* Bump count of files or directories */
  880.     if (fibp->fib_EntryType > 0)
  881.         {
  882.           if ((DIRFILEFLAG & 1) != 0)
  883.             dircount++;
  884.           else
  885.             goto ALLOCFIB;
  886.         }
  887.         else
  888.         {
  889.           if ((DIRFILEFLAG & 2) != 0)
  890.             filecount++;
  891.           else
  892.             continue;
  893.         }
  894.  
  895. /* See if this is the longest filename for later use in listing */
  896.     tempnamlen = strlen (fibp->fib_FileName);
  897.     if (tempnamlen > maxnamlen)
  898.       maxnamlen = tempnamlen;
  899.  
  900.         ALLOCFIB:
  901. /* Allocate another FibEntry to put the info in */
  902.         if (headfib == 0L)
  903.         {
  904.           headfib = AllocFib();
  905.           if (headfib == 0L)
  906.             return(headfib);
  907.           headfib->NextFib = headfib;
  908.           headfib->LastFib = headfib;
  909.           *(headfib->Fibp) = *(fibp);
  910.           tfibp = headfib;
  911.         }
  912.         else
  913.         {
  914.       tfibp->NextFib = AllocFib ();
  915.       if (tfibp->NextFib == 0L)
  916.         return(0L);
  917.  
  918. /* Copy FIB contents to next entry for ExNext to work with */
  919.       *(tfibp->NextFib->Fibp) = *(fibp);
  920.  
  921. /* Link it into the list */
  922.       tfibp->NextFib->LastFib = tfibp;
  923.       tfibp = tfibp->NextFib;
  924.       tfibp->NextFib = headfib;
  925.     }
  926.       }
  927.     }
  928.   } while (nextstat);
  929.  
  930. /* Return TRUE if entries found, else print message and return FALSE */
  931.   if ( (dircount + filecount) != 0)
  932.   {
  933.     return (headfib);
  934.   }
  935.   else
  936.   {
  937.     if (WILDCARD == 0 && DIRFILEFLAG == 3)
  938.       WSTR ("Volume or directory is empty.\n");
  939.     else
  940.       WSTR ("No match.\n");
  941.     return (0L);
  942.   }
  943. }
  944.  
  945. /* -------------------------------------------------------------------- */
  946. /* List a FibEntry list in a compact fashion                 */
  947. /* -------------------------------------------------------------------- */
  948. void SListDir (fibheadp)
  949.   struct FibEntry *fibheadp;
  950. {
  951.   struct FibEntry *tfibp;
  952.   long tabsize;
  953.   long maxtab;
  954.   long totrows;
  955.   long maxwinrow;
  956.   long colcnt;
  957.   long rowcnt;
  958.   long tabcnt;
  959.   long pagecnt = 1;
  960.  
  961.   CursorOff ();        /* Turn the cursor off since it will blink anyway */
  962.   GetWinBounds(&CurWinCols, &CurWinRows);
  963.  
  964.   tfibp = fibheadp;
  965.   tabcnt = rowcnt = colcnt = 0;
  966.  
  967.   tabsize = maxnamlen + 2;
  968.   if (CurWinCols < tabsize)
  969.     maxtab = 1;
  970.   else
  971.     maxtab = CurWinCols / tabsize;
  972.   maxwinrow = CurWinRows - 3;
  973.   if (maxwinrow <= 0)
  974.     maxwinrow = 1;
  975.   totrows = (dircount + filecount) / maxtab;
  976.   if ((dircount + filecount) % maxtab != 0)
  977.     totrows++;
  978.  
  979.   do
  980.   {
  981.     if (tfibp->Fibp->fib_EntryType > 0)
  982.     {
  983.       if ( (DIRFILEFLAG & 1) == 0)
  984.         goto GETNEXTFIB;
  985.       else
  986.         ColorPen2 ();
  987.     }
  988.     if (tabcnt)
  989.       (void) asprintf (workstr, "\233%ldC", (long)tabcnt);
  990.     else
  991.       workstr[0] = (BYTE) 0;
  992.     (void) strcat (workstr, tfibp->Fibp->fib_FileName);
  993.     (void) strcat (workstr, "\n");
  994.     WSTR (workstr);
  995.     if (tfibp->Fibp->fib_EntryType > 0)
  996.       ResetPen ();
  997.     rowcnt++;
  998.  
  999.     if (rowcnt == maxwinrow || rowcnt == totrows)
  1000.     {
  1001.       colcnt++;                /* Start a new column         */
  1002. /* Check to see if we have used the last column up and are about to run
  1003.  * off the screen entirely.  If so, give the user a chance to read it first.
  1004.  */
  1005.       if (colcnt == maxtab && rowcnt == maxwinrow && CONSOLE != 0)
  1006.       {
  1007.         if (maxwinrow > 1)
  1008.         {
  1009.          ++pagecnt;            /* Advance page number count    */
  1010.      PagePrompt (pagecnt);        /* Print it, wait for user    */
  1011.     }
  1012.     totrows -= maxwinrow;
  1013.     colcnt = tabcnt = rowcnt = 0L;
  1014.       }
  1015.       else    /* Just move over one row and back up to the top */
  1016.       {
  1017.     (void) asprintf (workstr, "\233%ldA", (long)rowcnt);
  1018.     WSTR (workstr);
  1019.     tabcnt += tabsize;
  1020.     rowcnt = 0L;
  1021.       }
  1022.     }
  1023.     GETNEXTFIB:
  1024.     tfibp = tfibp->NextFib;
  1025.   } while (tfibp != fibheadp);
  1026.  
  1027.   if (totrows - rowcnt > 0)        /* Cursor down till level with     */
  1028.   {                    /* lowest line on screen     */
  1029.     (void) asprintf (workstr, "\233%ldE", (long)(totrows - rowcnt));
  1030.     WSTR (workstr);
  1031.   }
  1032.   CursorOn ();
  1033. }
  1034.  
  1035. /* -------------------------------------------------------------------- */
  1036. /* Reset character color to default Pen1 colors             */
  1037. /* -------------------------------------------------------------------- */
  1038. void ResetPen ()
  1039. {
  1040.   if (CONSOLE != 0)
  1041.     WSTR ("\2330m");
  1042. }
  1043.  
  1044. /* -------------------------------------------------------------------- */
  1045. /* Turn the cursor on                            */
  1046. /* -------------------------------------------------------------------- */
  1047. void CursorOn ()
  1048. {
  1049.   if (CONSOLE != 0)
  1050.     WSTR ("\233 p");
  1051. }
  1052.  
  1053. /* -------------------------------------------------------------------- */
  1054. /* Turn the cursor off for faster text output                 */
  1055. /* -------------------------------------------------------------------- */
  1056. void CursorOff ()
  1057. {
  1058.   if (CONSOLE != 0)
  1059.     WSTR ("\2330 p");
  1060. }
  1061.  
  1062. /* -------------------------------------------------------------------- */
  1063. /* Make Pen2 <usually yellow/orange> the current charcter color     */
  1064. /* -------------------------------------------------------------------- */
  1065. void ColorPen2 ()
  1066. {
  1067.   if (CONSOLE != 0)
  1068.     WSTR ("\23333m");
  1069. }
  1070.  
  1071. /* -------------------------------------------------------------------- */
  1072. /* Prompt the user to hit return, wait till return is hit         */
  1073. /* -------------------------------------------------------------------- */
  1074. void PagePrompt (page)
  1075.   long page;
  1076. {
  1077.   WSTR ("\2337m -- MORE -- Press Return: \2330m");
  1078.   (void) Read (In, workstr, 1L);
  1079.   (void) asprintf (workstr, "\233F\233K\2334;33mPage %ld:\2330m\n", (long)page);
  1080.   WSTR (workstr);
  1081. }
  1082.  
  1083. /* -------------------------------------------------------------------- */
  1084. /* List a directory in a verbose informative manner             */
  1085. /* -------------------------------------------------------------------- */
  1086. void LListDir (fibheadp)
  1087.   struct FibEntry *fibheadp;
  1088. {
  1089.   long totblocks = 0L;
  1090.   long totbytes = 0L;
  1091.  
  1092.   CursorOff ();
  1093.   LongList (&totblocks, &totbytes, fibheadp);
  1094.  
  1095.   (void) asprintf (workstr, "Dirs:%-3ld Files:%-4ld Blocks:%-5ld Bytes:%-8ld\n",
  1096.       (long)dircount, (long)filecount, totblocks, totbytes);
  1097.   WSTR (workstr);
  1098.   CursorOn ();
  1099. }
  1100.  
  1101. /* -------------------------------------------------------------------- */
  1102. void LongList (totblocks, totbytes, fibheadp)
  1103.   long *totblocks, *totbytes;
  1104.   struct FibEntry *fibheadp;
  1105. {
  1106.   struct FibEntry *tfibp;
  1107.  
  1108.   tfibp = fibheadp;
  1109.   do
  1110.   {
  1111.     LListEntry (tfibp->Fibp);
  1112.     if (tfibp->Fibp->fib_EntryType < 0)
  1113.     {
  1114.       *totblocks += tfibp->Fibp->fib_NumBlocks;
  1115.       *totbytes += tfibp->Fibp->fib_Size;
  1116.     }
  1117.     tfibp = tfibp->NextFib;
  1118.   } while (tfibp != fibheadp);
  1119. }
  1120.  
  1121. /* -------------------------------------------------------------------- */
  1122. /* Verbosely list a particular FibEntry                 */
  1123. /* -------------------------------------------------------------------- */
  1124. void LListEntry (fib)
  1125.   struct FileInfoBlock *fib;
  1126. {
  1127.   long i, pmodes;
  1128.   char *cp1;
  1129.   char entry[160];
  1130.  
  1131.   pmodes = fib->fib_Protection & 0xff;
  1132.   cp1 = stpcpy (entry, "chsparwed ");
  1133.   for (i = 0; i < 4; i++)
  1134.   {
  1135.     if ((pmodes & (1 << i)) != 0)
  1136.       entry[8 - i] = '-';
  1137.   }
  1138.   for (; i < 8; i++)
  1139.   {
  1140.     if ((pmodes & (1 << i)) == 0)
  1141.       entry[8 - i] = '-';
  1142.   }
  1143.   if (fib->fib_Comment[0] == 0)
  1144.     entry[0] = '-';
  1145.  
  1146.   cp1 = stpcpy (cp1, FibFileDate (&fib->fib_Date));
  1147.   if (fib->fib_EntryType > 0)
  1148.   {
  1149.     if ( (DIRFILEFLAG & 1) == 0)
  1150.       return;
  1151.  
  1152.     if (CONSOLE)
  1153.       cp1 = stpcpy (cp1, "\23333m");
  1154.     cp1 = stpcpy (cp1, "   Directory   ");
  1155.     if (CONSOLE)
  1156.       cp1 = strcat (cp1, "\2330m");
  1157.   }
  1158.   else
  1159.     (void) asprintf (&entry[27], " %4ld %8ld ", fib->fib_NumBlocks, fib->fib_Size);
  1160.   (void)strcat(entry, fib->fib_FileName);
  1161.   (void)strcat(cp1, "\n");
  1162.   WSTR (entry);
  1163.  
  1164.   if (NOTEFLAG != 0 && fib->fib_Comment[0] != 0)
  1165.   {
  1166.     if (CONSOLE)
  1167.       (void)asprintf(cp1, "\23333m/* %s */\2330m\n", fib->fib_Comment);
  1168.     else
  1169.       (void)asprintf(cp1, "/* %s */\n", fib->fib_Comment);
  1170.     WSTR (workstr);
  1171.   }
  1172. }
  1173.  
  1174. #ifdef NOASM
  1175. /* -------------------------------------------------------------------- */
  1176. /* Calculate date based on DateStamp structure, return a string pointer */
  1177. /* -------------------------------------------------------------------- */
  1178. char *CalcDate (fib)
  1179.   struct FileInfoBlock *fib;
  1180. {
  1181.   static long days[12] =
  1182.   {
  1183.     31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
  1184.   };
  1185.  
  1186.   static char *months[12] =
  1187.   {
  1188.     "Jan", "Feb", "Mar", "Apr", "May", "Jun",
  1189.     "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
  1190.   };
  1191.   char datestr[25];
  1192.   long i, mdays;
  1193.   long day, hour;
  1194.   long minute, sec;
  1195.   long ldays;
  1196.   long year;
  1197.  
  1198.   ldays = 1461L;
  1199.   year = 78L;
  1200.   day = fib->fib_Date.ds_Days;
  1201.   minute = fib->fib_Date.ds_Minute;
  1202.   sec = fib->fib_Date.ds_Tick / 50L;
  1203.   year += (day / ldays) * 4L;
  1204.   day %= ldays;
  1205.  
  1206.   while (day)
  1207.   {
  1208.     mdays = 365;
  1209.     if ((year & 3) == 0)
  1210.       mdays++;
  1211.     if (day < mdays)
  1212.       break;
  1213.     day -= mdays;
  1214.     year++;
  1215.   }
  1216.  
  1217.   for (i = 0L, day++; i < 12; i++)
  1218.   {
  1219.     mdays = days[i];
  1220.     if (i == 1 && (year & 3) == 0)
  1221.       mdays++;
  1222.     if (day <= mdays)
  1223.       break;
  1224.     day -= mdays;
  1225.   }
  1226.   hour = minute / 60;
  1227.   minute -= hour * 60;
  1228.   (void) asprintf (datestr, "%02ld-%s-%02ld %02ld:%02ld:%02ld ", day, (long)months[i], year, hour, minute, sec);
  1229.   return (datestr);
  1230. }
  1231. #endif
  1232.  
  1233. /* -------------------------------------------------------------------- */
  1234. /* Use AmigaDos to put a string on the stdout                 */
  1235. /* -------------------------------------------------------------------- */
  1236. void WSTR (tstring)
  1237.   char *tstring;
  1238. {
  1239.   (void) Write (Out, tstring, (long) strlen (tstring));
  1240. }
  1241.  
  1242. /* -------------------------------------------------------------------- */
  1243. /* Use AmigaDos to put a character on the stdout             */
  1244. /* -------------------------------------------------------------------- */
  1245. void WCHR (ch)
  1246.   char *ch;
  1247. {
  1248.   (void) Write (Out, ch, 1L);
  1249. }
  1250.  
  1251. /* -------------------------------------------------------------------- */
  1252. /* Check to see if the user hit ^C                     */
  1253. /* -------------------------------------------------------------------- */
  1254. void TestBreak ()
  1255. {
  1256.   unsigned long oldsig;
  1257.  
  1258.   oldsig = SetSignal (0L, SIGBREAKF_CTRL_C);
  1259.   if ( (oldsig & SIGBREAKF_CTRL_C) != 0L)
  1260.   {
  1261.     WSTR ("\2330m\233 p**BREAK\n");
  1262.     BREAKFLAG = 1;
  1263.   }
  1264. }
  1265.  
  1266. /* -------------------------------------------------------------------- */
  1267. /* Explain how to use                             */
  1268. /* -------------------------------------------------------------------- */
  1269. void Usage ()
  1270. {
  1271.   WSTR (Author);
  1272.   WSTR (usage);
  1273.   WSTR (" c > Show comments\n");
  1274.   WSTR (" d > Dirs only\n");
  1275.   WSTR (" f > Files only\n");
  1276.   WSTR (" l > Long listing\n");
  1277.   WSTR (" n > No sort\n");
  1278.   WSTR (" r > Reverse sort\n");
  1279.   WSTR (" s > Sort by size\n");
  1280.   WSTR (" t > Sort by date\n");
  1281.   WSTR (" R > Recursive listing\n");
  1282.   CleanUp ("", 0L);
  1283. }
  1284.  
  1285. /* -------------------------------------------------------------------- */
  1286. /* Allocate a FibEntry structure and associated FileInfoBlock         */
  1287. /* -------------------------------------------------------------------- */
  1288. struct FibEntry *AllocFib ()
  1289. {
  1290.   struct FibEntry *tfibp;
  1291.  
  1292.   tfibp = (struct FibEntry *) AllocMem \
  1293. ((long)( sizeof (struct FibEntry) + sizeof(struct FileInfoBlock) ), 0L);
  1294.   if (tfibp != 0L)
  1295.   {
  1296.     tfibp->Fibp = (struct FileInfoBlock *)((ULONG)tfibp + sizeof(struct FibEntry));
  1297.   }
  1298.   else
  1299.     BREAKFLAG = 1;
  1300.   return (tfibp);
  1301. }
  1302.  
  1303. /* -------------------------------------------------------------------- */
  1304. /* Free up memory allocated to a linked list of FibEntrys         */
  1305. /* -------------------------------------------------------------------- */
  1306. void FreeAllFibs (fibheadp)
  1307.   struct FibEntry *fibheadp;
  1308. {
  1309.   struct FibEntry *fibp;
  1310.   struct FibEntry *tfibp;
  1311.  
  1312.   if (fibheadp != 0)
  1313.   {
  1314.     fibp = fibheadp;
  1315.     do
  1316.     {
  1317.       tfibp = fibp->NextFib;
  1318.       FreeFib (fibp);
  1319.       fibp = tfibp;
  1320.     } while (tfibp != fibheadp);
  1321.   }
  1322. }
  1323.  
  1324. /* -------------------------------------------------------------------- */
  1325. /* Deallocate a single FibEntry structure                 */
  1326. /* -------------------------------------------------------------------- */
  1327. void FreeFib (fibp)
  1328.   struct FibEntry *fibp;
  1329. {
  1330.   if (fibp != 0L)
  1331.     FreeMem (fibp, (long)(sizeof (struct FibEntry) + sizeof(struct FileInfoBlock)));
  1332. }
  1333.  
  1334. SHAR_EOF
  1335. cat << \SHAR_EOF > ls.doc
  1336.  
  1337.   LS.C -- an "improved" directory listing utility to replace the
  1338.   AmigaDOS DIR and LIST commands.
  1339.  
  1340.   V1.0   August 1986 Written from scratch by Justin V. McCormick.
  1341.   V2.0 November 1988 Revised for Lattice 5.0 and made 1.3 compatible.
  1342.  
  1343. Notice:
  1344.  
  1345.   This program is placed in the public domain with the understanding
  1346. that the author makes no claims or guarantees with regard to its
  1347. suitability for any given application, and that the author assumes no
  1348. responsibility for damages incurred by its usage.  Any resemblance
  1349. of this program to any other program, either living or dead, is
  1350. purely coincidental.
  1351.  
  1352.   Feel free to steal this code and make millions of dollars from its sale
  1353. or commercial use, but please give credit where credit is due.
  1354.  
  1355. Synopsis:
  1356.  
  1357.   Features adaptive columnar listing, versatile sort options,
  1358. UNIX-style pattern matching, recursive subdirectory listing, etc!
  1359.  
  1360. Usage:
  1361.     ls [options] [path1] [path2] ...
  1362.  
  1363. Options:
  1364.     -?    Help!
  1365.     -c    Show file comment info, -c implies -l
  1366.     -d    Show directory names only
  1367.     -f    Show filenames only
  1368.     -l      Long verbose listing showing filesizes and dates
  1369.     -n    No sort, just spit them out in the order ExNext() returns
  1370.     -r    Reverse sort direction
  1371.     -s    Sorted by size smallest to largest
  1372.     -t    Sorted by date oldest to newest
  1373.     -R    Recursive descent of subdirectories
  1374.  
  1375.   All arguments are optional.  Default is to give short columnar listing,
  1376. sorted alphabetically, using the current directory.  Alphabetizing is case
  1377. insensitive.
  1378.  
  1379.   Patterns may be matched in the given names, using the UNIX-style '*'
  1380. to wildcard any number of characters, and '?' to wildcard a single
  1381. character.  If you need to specify a pathname with spaces in it like
  1382. "Wombat Soup", you need to put quotes around it.  LS can process up to 30
  1383. separate pathname patterns in one command line.
  1384.  
  1385. Bugs:
  1386.  
  1387.   Redirecting the shortlist output to PRT: gives undesirable results,
  1388. since I am using relative cursor positioning commands to format the
  1389. screen output.  I thought about using an array to store a virtual
  1390. screen, but my primary goals were to keep the size down and display
  1391. speed at a maxiumum.  Also, LS cannot pattern match devices (like "dh*:")
  1392. or support multiple levels of pattern matching (like "dh0:?/L*.info").
  1393. This would involve another level of recursion and groking the Device List.
  1394.  
  1395. Changes From 1.0 to 2.0:
  1396.  
  1397.  o Source code prototyped, linted, traced, optimized, tweaked, etc.
  1398.  o Made resident ("pseudo-pure") by linking with cres.o from LC 5.0.
  1399.  o High-volume routines recoded in assembly (lssup.a).
  1400.  o Now handles multiple paths/files on a command line, up to 30.
  1401.  o New sort flags, including no sort.
  1402.  o Enhanced wildcards, understands complex *.?*.* expressions now.
  1403.  o More efficient ExNext() performance, less ram used for recursion.
  1404.  o SIGBREAKF_CTRL_C signal (Ctrl-C) cleanly aborts at any point now.
  1405.  o Command line parser handles quoted pathnames now (LC 5.0 benefit).
  1406.  o Short listing finally auto-adjusts to new console window sizes!
  1407.  o Pen color escape codes bypassed when redirecting long output.
  1408.  o Sorting by size or date is also subsorted alphabetically now.
  1409.  o Long listing shows new 1.3 file attributes, plus comment indicator.
  1410.  o File dates are now in international format, YY-MM-DD.
  1411.  o Fixed listings with files datestamped after 99-12-31 (overflow).
  1412.  o Fixed listings with files datestamped before 78-01-01 (time < 0).
  1413.  
  1414.   Don't send me money for this one!  Its a Christmas present 8-)
  1415. However, if you find any bugs I'd like to hear about them!
  1416.  
  1417.         Justin V. McCormick
  1418.     8330 E. Quincy Ave., C-312
  1419.     Denver, CO 80237
  1420.  
  1421.         Home: 303-290-8429
  1422.     Work: 303-825-4144
  1423. SHAR_EOF
  1424. cat << \SHAR_EOF > ls.h
  1425. #include <dos.h>
  1426. #include <libraries/dosextens.h>
  1427.  
  1428. /*lint -save    */
  1429. /*lint -library */
  1430. #include <proto/exec.h>
  1431. #include <proto/dos.h>
  1432. #include <stdio.h>
  1433. #include <string.h>
  1434. #include <stdlib.h>
  1435. /*lint -restore    */
  1436.  
  1437. extern int tolower (char);
  1438.  
  1439. /* Prevent Lint from complaining about ANSI prototype extensions */
  1440. #ifdef _lint
  1441.  
  1442. #define __asm
  1443. #define __stdargs
  1444. #define R_D0
  1445. #define R_D1
  1446. #define R_A0
  1447.  
  1448. #else
  1449.  
  1450. #define R_D0    register __d0
  1451. #define R_D1    register __d1
  1452. #define R_A0    register __a0
  1453.  
  1454. #endif
  1455.  
  1456. #define MEMF_PUBLIC (1L<<0)
  1457. #define MEMF_CHIP   (1L<<1)
  1458. #define MEMF_FAST   (1L<<2)
  1459. #define MEMF_CLEAR  (1L<<16)
  1460. SHAR_EOF
  1461. cat << \SHAR_EOF > ls.lnk
  1462. DEFINE @_main = @_tinymain
  1463. DEFINE @XCEXIT = xXCEXIT
  1464. DEFINE @chkabort = xchkabort
  1465. DEFINE @write = xchkabort
  1466. DEFINE @_dclose = xchkabort
  1467. SC SD ND
  1468. SHAR_EOF
  1469. cat << \SHAR_EOF > lssup.a
  1470. * --------------------------------------------------------------------- *
  1471. * LSSUP.A    - Assembly support routines for ls.c            *
  1472. * Copyright (c) 1988 by Justin V. McCormick. All Rights Reserved.    *
  1473. * --------------------------------------------------------------------- *
  1474.     IDNT    "lssup.a"
  1475.  
  1476.     include "asm:inc/macros.i"
  1477.  
  1478. ; Assembler options for CAPE
  1479.     BASEREG    B
  1480.     SMALLOBJ
  1481.     OPTIMON
  1482.     ADDSYM
  1483.     DEBUG
  1484.  
  1485. ; Equates
  1486. fib_FileName    equ    $8
  1487. fib_Size    equ    $7C
  1488. fib_NumBlocks    equ    $80
  1489. fib_DateStamp    equ    $84
  1490.  
  1491. ds_Days        equ    $0
  1492. ds_Minute    equ    $4
  1493. ds_Tick        equ    $8
  1494.  
  1495. _LVOAddPort    equ    $FFFFFE9E
  1496. _LVOAllocMem    equ    $FFFFFF3A
  1497. _LVOAllocSignal    equ    $FFFFFEB6
  1498. _LVODebug    equ    $FFFFFF8E
  1499. _LVOFindTask    equ    $FFFFFEDA
  1500. _LVOFreeMem    equ    $FFFFFF2E
  1501. _LVOFreeSignal    equ    $FFFFFEB0
  1502. _LVOGetMsg    equ    $FFFFFE8C
  1503. _LVOPutMsg    equ    $FFFFFE92
  1504. _LVORawDoFmt    equ    $FFFFFDF6
  1505. _LVORemPort    equ    $FFFFFE98
  1506. _LVORead    equ    $FFFFFFD6
  1507. _LVOWaitPort    equ    $FFFFFE80
  1508. _LVOWrite    equ    $FFFFFFD0
  1509.  
  1510. pr_ConsoleTask        EQU    $A4 
  1511. MEMF_CLEAR        EQU    $10000 
  1512. MEMF_PUBLIC        EQU    $1 
  1513. sp_Msg            EQU    $0 
  1514. sp_Pkt            EQU    $14 
  1515. sp_SIZEOF        EQU    $44 
  1516. dp_Link            EQU    $0 
  1517. dp_Port            EQU    $4 
  1518. dp_Arg1            EQU    $14 
  1519. dp_Type            EQU    $8 
  1520. ACTION_SCREEN_MODE    EQU    $3E2 
  1521. LN_NAME            EQU    $A 
  1522. LN_PRI            EQU    $9 
  1523. LN_TYPE            EQU    $8 
  1524. MP_FLAGS        EQU    $E 
  1525. MP_MSGLIST        EQU    $14 
  1526. MP_SIGBIT        EQU    $F 
  1527. MP_SIGTASK        EQU    $10 
  1528. MP_SIZE            EQU    $22 
  1529. NT_MSGPORT        EQU    $4 
  1530. PA_SIGNAL        EQU    $0 
  1531.  
  1532. * External constants
  1533.     XREF    _DOSBase
  1534.     XREF    _Out
  1535.     XREF    _In
  1536. * --------------------------------------------------------------------- *
  1537.     SECTION    lssup,CODE
  1538.  
  1539. * ------------------------------------------------------------------------- *
  1540. * void asprintf(wstr, formatstring, args)
  1541. *   char *wstr;
  1542. *   char *formatstring;
  1543. *   char **args;
  1544. * 
  1545. * Synopsis: Given formatstring and args to format, formats output to wstr.
  1546. * Similar to sprintf(), except doesn't handle floats.
  1547. * ------------------------------------------------------------------------- *
  1548.     XDEF    _asprintf
  1549. _asprintf:
  1550.     link    a5,#0
  1551.     movem.l    d0-d2/a0-a3,-(sp)    ;Save everything we might clobber
  1552.  
  1553. * Call format function to convert fmtstring and args to buffer on the stack
  1554.     movea.l    12(a5),a0        ;Grab format string
  1555.     lea    16(a5),a1        ;Grab EA of arguments
  1556.     lea    kput1,a2        ;Grab EA of output subroutine
  1557.     movea.l    8(a5),a3        ;Grab EA of dest workspace
  1558.     SYS    RawDoFmt,4        ;Format it into workspace
  1559.  
  1560.     movem.l    (sp)+,d0-d2/a0-a3    ;Restore registers
  1561.     unlk    a5            ;And stack frame
  1562.     rts
  1563.  
  1564. * ------------------------------------------------------------------------- *
  1565. * RawDoFmt() output routine for xprintf, called for each formatted char.
  1566. * Takes byte in d0 and puts in buffer pointed to by a3, then increments a3.
  1567. * ------------------------------------------------------------------------- *
  1568.     XDEF    kput1
  1569. kput1:
  1570.     move.b    d0,(a3)+
  1571.     rts
  1572.  
  1573. * --------------------------------------------------------------------- *
  1574. * void GetWinBounds(width, height)
  1575. *   long *width, *height;
  1576. *
  1577. * Find current console window, determine width and height
  1578. * in terms of current font, update width and height VPARMS passed.
  1579. * --------------------------------------------------------------------- *
  1580. rpstr    equ    -32
  1581. rpport    equ    -12
  1582. packet    equ    -8
  1583. conid    equ    -4
  1584.  
  1585. width    equ    8
  1586. height    equ    12
  1587.  
  1588.     XDEF    _GetWinBounds
  1589. _GetWinBounds:
  1590.     link    a5,#-32
  1591.     movem.l    d2-d4/a2,-(sp)
  1592.  
  1593.     suba.l    a1,a1
  1594.     SYS    FindTask,4        ;d0 = FindTask(0L), our process
  1595.     movea.l    d0,a0            ;Transfer to address reg
  1596.     move.l    pr_ConsoleTask(a0),conid(a5) ;Save proc->pr_ConsoleTask
  1597.  
  1598.     moveq    #0,d4            ;Clear our success status register
  1599.  
  1600.     moveq    #0,d0
  1601.     movea.l    d0,a0
  1602.     bsr.w    CreatePort
  1603.     move.l    d0,rpport(a5)        ;rpport = CreatePort(0L, 0L)
  1604.      beq.w    gwbdone            ;Oops, no signals or ram available!
  1605.     move.l    #MEMF_PUBLIC+MEMF_CLEAR,d1
  1606.     moveq    #sp_SIZEOF,d0
  1607.     SYS    AllocMem
  1608.     move.l    d0,packet(a5)        ;packet = AllocMem(sizeof(*packet),MEMF_PUBLIC|MEMF_CLEAR)
  1609.      beq.w    gwbfreeport        ;Oops, no ram, free up port
  1610.  
  1611. * Okay, we got our process id, reply port, and packet
  1612. * Now toggle the console into raw mode
  1613.     movea.l    rpport(a5),a2
  1614.     movea.l    d0,a1
  1615.     movea.l    conid(a5),a0
  1616.     moveq    #1,d0
  1617.     bsr.w    SetConsoleType        ;SetConsoleType(1L, conid, packet, rpport)
  1618.  
  1619. * Request a window bounds report
  1620.     moveq    #4,d3
  1621.     lea    gwbrstr(a4),a0
  1622.     move.l    a0,d2
  1623.     move.l    _Out(a4),d1
  1624.     SYS    Write,_DOSBase(a4)    ;Write(Output(), "\2330 q", 4L);
  1625.     cmpi.l    #$0004,d0        ;Did the console choke on it?
  1626.      bne.w    gwbsetcook        ;hmmm, see if we can back out gracefully
  1627.  
  1628. * Read the report string into stack buffer
  1629.     moveq    #16,d3            ;Don't let it get longer than 16 characters
  1630.     lea    rpstr(a5),a0        ;Point to input string area
  1631.     move.l    a0,d2
  1632.     move.l    _In(a4),d1
  1633.     SYS    Read            ;Read(Input(), rpstr, 16L)
  1634.     move.l    d0,d4            ;Save read length while we close shop
  1635.  
  1636. * Turn the console back to cooked mode pronto to avoid cursor blink
  1637. gwbsetcook:
  1638.     movea.l    rpport(a5),a2
  1639.     movea.l    packet(a5),a1
  1640.     movea.l    conid(a5),a0
  1641.     moveq    #0,d0
  1642.     bsr.w    SetConsoleType        ;SetConsoleType(0L, conid, packet, rpport)
  1643.  
  1644. * Release resources we borrowed
  1645. gwbfreepack:
  1646.     move.l    packet(a5),d0        ;Did we allocate a packet?
  1647.      beq.b    gwbfreeport        ;nay, check for port to free
  1648.     movea.l    d0,a1
  1649.     moveq    #sp_SIZEOF,d0
  1650.     SYS    FreeMem            ;Else FreeMem(packet, sizeof(*packet))
  1651.  
  1652. gwbfreeport:
  1653.     move.l    rpport(a5),d0        ;if (rpport)...
  1654.      beq.w    gwbdone            ;nope
  1655.     bsr.w    DeletePort        ;Else DeletePort(rpport)
  1656.  
  1657. * Finally, sanity check window bounds report string
  1658. * d4 = length of report string according to Read()
  1659.     cmpi.l    #9,d4            ;Less than 8 characters returned?
  1660.      ble.w    gwbdone            ;hmmm, phonky bounds report from DOS?
  1661.     lea    rpstr(a5),a2        ;a2 = rpstr
  1662.     cmpi.b    #';',4(a2)        ;Matches a typical report template?
  1663.      bne.w    gwbdone            ;nope, got some weird junk back?
  1664.     cmpi.b    #'r',-1(a2,d4.w)    ;Last byte is 'r' for report?
  1665.      bne.w    gwbdone            ;Nope, message fubar!
  1666.  
  1667. * Parse the height and width variables from the field now
  1668. * Our report format looks like this in hex:
  1669. *     9b 31 3b 31 3b y2 y1 3b x2 x1 20 72
  1670. * Or in ascii:
  1671. *    <0x9b>1;1;20;77 r
  1672. * Which would indicate a width of 77 cols and a height of 20 rows for
  1673. * the current console device
  1674. *
  1675. * REGS:    a2 points to beginning of 'r' terminated string
  1676.  
  1677.     lea    5(a2),a2        ;Point to first char of Y size
  1678.     moveq    #0,d1            ;Clear out work reg
  1679.  
  1680. * Convert ascii rows value to LONG, update host data
  1681.     move.b    (a2)+,d1        ;Grab a Y
  1682.     subi.w    #'0',d1            ;Less ascii offset
  1683.     cmpi.b    #';',(a2)        ;Any more Y digits?
  1684.      beq.b    1$            ;Nope
  1685.     mulu    #10,d1            ;Else shift by 10
  1686.     add.b    (a2)+,d1        ;Add least significant Y digit
  1687.     subi.b    #'0',d1            ;Less ascii offset
  1688.     cmpi.b    #';',(a2)        ;Any more Y digits?
  1689.      beq.b    1$            ;Nope
  1690.     mulu    #$000a,d1        ;Else shift by 10
  1691.     add.b    (a2)+,d1        ;Add least significant Y digit
  1692.     subi.b    #'0',d1            ;Less ascii offset
  1693.                     ;We'll assume screen height < 999 rows    
  1694. 1$
  1695. * Convert ascii columns value to LONG, update host data
  1696.     addq.w    #1,a2            ;Move past the ';' separator
  1697.     moveq    #0,d2            ;Zap work reg
  1698.     move.b    (a2)+,d2        ;Grab msd of X
  1699.     cmpi.b    #' ',d2            ;Premature end?
  1700.      beq.w    gwbdone            ;Huh, must be garbage - don't update VPARMS
  1701.     cmpi.b    #';',d2            ;Also a possible error
  1702.      beq.w    gwbdone
  1703.     cmpi.b    #'r',d2            ;And what about this?
  1704.      beq.w    gwbdone
  1705.  
  1706.     subi.b    #'0',d2            ;Okay, adjust ascii offset
  1707.     cmpi.b    #' ',(a2)        ;Hit end of report?
  1708.      beq.b    2$            ;Yep
  1709.     mulu    #$000a,d2        ;Else shift by 10
  1710.     add.b    (a2)+,d2        ;Add next digit
  1711.     subi.b    #'0',d2            ;Ascii adjust
  1712.     cmpi.b    #' ',(a2)        ;Hit end of report?
  1713.      beq.b    2$            ;Yep
  1714.     mulu    #$000a,d2        ;Else shift by 10
  1715.     add.b    (a2),d2            ;Add next digit
  1716.     subi.b    #'0',d2            ;Ascii adjust
  1717.  
  1718. 2$
  1719. * Finally, update parameters by reference
  1720.     movea.l    height(a5),a0        ;Grab height VPARM
  1721.     move.l    d1,(a0)            ;*height = d1
  1722.     movea.l    width(a5),a0        ;Grab width VPARM
  1723.     move.l    d2,(a0)            ;*width = d2
  1724.  
  1725. gwbdone:
  1726.     movem.l    (sp)+,d2-d4/a2
  1727.     unlk    a5
  1728.     rts
  1729.  
  1730. * --------------------------------------------------------------------- *
  1731. * __asm void SetConsoleType(flag, id, packet, port)
  1732. *   register __d0 long flag;
  1733. *   register __a0 struct Process *id;
  1734. *   register __a1 struct StandardPacket *packet;
  1735. *   register __a2 struct MsgPort *port;
  1736. *
  1737. * Flag = 1L -- Raw mode
  1738. *      = 0L -- Cooked mode
  1739. * --------------------------------------------------------------------- *
  1740.     XDEF    SetConsoleType
  1741. SetConsoleType:
  1742.     movem.l    a3/a5,-(sp)
  1743.  
  1744.     movea.l    a0,a3            ;Copy process pointer
  1745.     movea.l    a1,a5            ;Copy packet pointer
  1746.     lea    sp_Pkt(a5),a0        ;a0 = &packet->sp_Pkt
  1747.     move.l    a0,sp_Msg+LN_NAME(a5)    ;p->sp_Msg.mn_Node.ln_Name = &p->sp_Pkt
  1748.     lea    sp_Msg(a5),a0        ;a0 = &packet->sp_Msg
  1749.     move.l    a0,sp_Pkt+dp_Link(a5)    ;p->sp_Pkt.dp_Link = &p->sp_Msg
  1750.     move.l    a2,sp_Pkt+dp_Port(a5)    ;p->sp_Pkt.dp_Port = replyport
  1751.     move.l    #ACTION_SCREEN_MODE,sp_Pkt+dp_Type(a5)    ;Set function
  1752.  
  1753.     tst.w    d0            ;On or Off?
  1754.      beq.w    1$
  1755.     move.l    #-1,sp_Pkt+dp_Arg1(a5)    ;RAW ON
  1756.     bra.b    2$
  1757. 1$
  1758.     clr.l    sp_Pkt+dp_Arg1(a5)    ;RAW OFF
  1759. 2$
  1760.     movea.l    a3,a0
  1761.     movea.l    a5,a1
  1762.     SYS    PutMsg,4        ;PutMsg(proc, packet)
  1763.  
  1764.     movea.l    a2,a0
  1765.     SYS    WaitPort        ;WaitPort(port)
  1766.     movea.l    a2,a0
  1767.     SYS    GetMsg            ;(void)GetMsg(port)
  1768.  
  1769.     movem.l    (sp)+,a3/a5
  1770.     rts
  1771.  
  1772. * ------------------------------------------------------------------------- *
  1773. * struct MsgPort *CreatePort(name, pri) (a0/d0)
  1774. * ------------------------------------------------------------------------- *
  1775.     XDEF    CreatePort
  1776. CreatePort:
  1777.     movem.l    d5/d7/a2/a5,-(sp)
  1778.  
  1779.     move.l    a0,a5            ;Save Name
  1780.     move.l    d0,d5            ;Save Pri
  1781.  
  1782. * Allocate a free signal, crap out if we can't
  1783.     moveq    #-1,d0
  1784.     SYS    AllocSignal,4
  1785.     cmp.l    #-1,d0            ;Did we get a signal?
  1786.      bne.b    cpgotsig        ;Yep
  1787.     moveq    #0,d0            ;Otherwise return NULL
  1788.     bra.w    cpdone
  1789.  
  1790. cpgotsig:
  1791.     move.l    d0,d7            ;Save our signal
  1792.  
  1793. * Allocate memory for MsgPort
  1794.     moveq.l    #MP_SIZE,d0        ;Size of MsgPort
  1795.     move.l    #MEMF_PUBLIC!MEMF_CLEAR,d1    ;Type of memory
  1796.     SYS    AllocMem        ;Allocate it
  1797.     tst.l    d0            ;Did we get it?
  1798.      bne.b    cpgotport        ;Yep
  1799.  
  1800.     move.l    d7,d0            ;Otherwise crap out, free signal
  1801.     SYS    FreeSignal
  1802.     moveq    #0,d0            ;Return NULL
  1803.     bra.w    cpdone
  1804.  
  1805. cpgotport:
  1806.     move.l    d0,a2            ;This is our new port!
  1807.     move.l    a5,LN_NAME(a2)        ;port->mp_Node.ln_Name = name
  1808.     move.b    d5,LN_PRI(a2)        ;port->mp_Node.ln_Pri = priority
  1809.     move.b    #NT_MSGPORT,LN_TYPE(a2) ;port->mp_Node.ln_Type = NT_MSGPORT
  1810.     move.b    #PA_SIGNAL,MP_FLAGS(a2) ;port->mp_Flags = PA_SIGNAL
  1811.     move.b    d7,MP_SIGBIT(a2)    ;port->mp_SIGBIT = sigBit
  1812.     suba.l    a1,a1
  1813.     SYS    FindTask
  1814.     move.l    d0,MP_SIGTASK(a2)    ;port->mp_SIGTASK = FindTask(0L)
  1815.     
  1816.     cmpa.l    #0,a5            ;Is this a new name?
  1817.     beq.b    cpnoname        ;Nope, add it to the msg list
  1818.  
  1819.     movea.l    a2,a1
  1820.     SYS    AddPort            ;Otherwise add this port
  1821.     move.l    a2,d0            ;Return port pointer
  1822.     bra.b    cpdone
  1823.  
  1824. cpnoname:
  1825. * Initialized New List head
  1826.     lea    MP_MSGLIST(a2),a0     ;a0 = &port->mp_MsgList
  1827.     move.l    a0,(a0)            ;list->lh_Head = list
  1828.     addq.l    #4,(a0)            ;list->lh_Head += 4L
  1829.     clr.l    4(a0)            ;list->lh_Tail = 0L
  1830.     move.l    a0,8(a0)        ;list->lh_TailPred = list
  1831.     move.l    a2,d0            ;Return port pointer
  1832.  
  1833. cpdone:
  1834.     movem.l    (sp)+,d5/d7/a2/a5
  1835.     rts
  1836.  
  1837. * ------------------------------------------------------------------------- *
  1838. * DeletePort(port)(d0)
  1839. * ------------------------------------------------------------------------- *
  1840.     XDEF    DeletePort
  1841. DeletePort:
  1842.     move.l    a5,-(sp)
  1843.  
  1844.     move.l    d0,a5
  1845.     tst.l    LN_NAME(a5)        ;Is there a name?
  1846.     beq.s    dpnoname
  1847.     
  1848.     move.l    d0,a1
  1849.     SYS    RemPort,4        ;RemPort(port)
  1850.     
  1851. dpnoname:
  1852.     move.b    #$ff,LN_TYPE(a5)     ;port->mp_Node.ln_Type = 0xff
  1853.     move.l    #-1,MP_MSGLIST(a5)     ;port->mp_MsgList.lh_Head = -1L
  1854.  
  1855.     moveq    #0,d0
  1856.     move.b    MP_SIGBIT(a5),d0    ;d0 = port->mp_SigBit
  1857.     SYS    FreeSignal,4        ;FreeSignal(d0)
  1858.  
  1859.     moveq    #MP_SIZE,d0
  1860.     move.l    a5,a1
  1861.     SYS    FreeMem            ;FreeMem(port, sizeof(*port))
  1862.  
  1863.     move.l    (sp)+,a5
  1864.     rts
  1865.  
  1866. * ------------------------------------------------------------------------
  1867. * char *FibFileDate(fib_date)
  1868. *   register struct DateStamp *fib_date;
  1869. *
  1870. *   Calculate date based on DateStamp structure and return a pointer
  1871. * to the formatted date string.
  1872. * ------------------------------------------------------------------------
  1873.     XDEF    _FibFileDate
  1874. _FibFileDate:
  1875.     link    a5,#0
  1876.     movem.l    d3-d7/a4,-(sp)
  1877.  
  1878.     movea.l    8(a5),a1        ;Grab datestamp pointer
  1879.     moveq    #78,d7            ;Initial year = 1978
  1880.  
  1881.     move.l    (a1),d5            ;days = fib_date->ds_Days
  1882.      blt    ffdbaddate        ;Hey! you can't be negative! Invalid date...
  1883.  
  1884. * Determine what year it is
  1885.     divu    #1461,d5
  1886.     move.l    d5,d0            ;Stash it
  1887.     ext.l    d5
  1888.     lsl.l    #2,d5
  1889.     add.l    d5,d7            ;year += (days / 1461) * 4
  1890.  
  1891. * Count how many months into that year
  1892. ffdgetmo:
  1893.     swap    d0            ;days %= 1461
  1894.     move.w    d0,d5
  1895.  
  1896. 1$    tst.w    d5            ;Out of days yet?
  1897.      beq    3$            ;Yep, done here
  1898.  
  1899.     move.w    #365,d6            ;Else month_days = 365
  1900.     move.w    d7,d0            ;Grab year
  1901.     andi.w    #3,d0            ;if (year & 3) == 0 Leap year?
  1902.      bne    2$            ;Nope
  1903.     addq.w    #1,d6            ;Otherwise bump month_days
  1904.  
  1905. 2$    cmp.w    d6,d5            ;is day < month_days?
  1906.      blt    3$            ;yep, done here
  1907.     sub.w    d6,d5            ;otherwise day -= month_days
  1908.  
  1909.     addq.l    #1,d7            ; year++
  1910.     bra    1$
  1911. 3$
  1912.  
  1913. * Count how many days into that month of that year
  1914. ffdgetday:
  1915. ;for (i = 0, day++; i < 12; i++)
  1916.     moveq    #0,d4            ;current month = 0
  1917.     moveq    #0,d6            ;Zap hinybs
  1918.     addq.w    #1,d5
  1919.     lea    _dayspermonth(a4),a0
  1920.  
  1921. 1$
  1922.     move.b    0(a0,d4.w),d6        ;month_days = dayspermonth[i]
  1923.  
  1924.     cmpi.w    #1,d4            ;if (i == 1 && (year & 3) == 0)
  1925.      bne    2$
  1926.     move.w    d7,d0
  1927.     andi.w    #3,d0
  1928.      bne    2$
  1929.     addq.w    #1,d6            ;month_days++
  1930.  
  1931. 2$    cmp.w    d6,d5            ;if (day <= month_days)
  1932.      ble    4$            ;Break out, found the right month
  1933.  
  1934.     sub.w    d6,d5            ;Else, day -= month_days
  1935.  
  1936.     addq.w    #1,d4            ;i++
  1937. 3$    cmpi.w    #12,d4            ;Done all months yet?
  1938.      blt    1$            ;Nope
  1939.  
  1940. 4$
  1941. ffdprint:
  1942. 1$    cmpi.l    #99,d7            ;while (year >= 100)
  1943.      ble    2$
  1944.     subi.l    #100,d7            ;year -= 100
  1945.     bra    1$
  1946. 2$
  1947. ;asprintf(datestr, "%02d-%02d-%02d %02d:%02d:%02d", i + 1, day, year, hour, min, sec)
  1948.     move.l    8(a1),d0        ;sec = fib_date->ds_Tick / 50;
  1949.     divu    #50,d0
  1950.     move.w    d0,-(sp)        ;Push secs
  1951.  
  1952.     moveq    #0,d0            ;Zap reg
  1953.     move.w    6(a1),d0        ;min = fib_date->ds_Minute
  1954.     move.w    d0,d1            ;Clone it
  1955.     divu    #60,d0
  1956.     move.w    d0,d3            ;hour = min / 60
  1957.     mulu    #60,d0
  1958.     sub.w    d0,d1            ;min -= hour * 60
  1959.     move.w    d1,-(sp)        ;Push mins
  1960.  
  1961.     move.w    d3,-(sp)        ;Push hours
  1962.     addq.w    #1,d4            ;Push day of month (offset by 1!)
  1963.     move.w    d5,-(sp)        ;Push month
  1964.     move.w    d4,-(sp)
  1965.     move.w    d7,-(sp)        ;Push year
  1966.     pea    _datepat(a4)        ;Push the format pattern
  1967.     pea    _datestr(a4)        ;Push destination buffer
  1968.     jsr    _asprintf    
  1969.     lea    20(sp),sp
  1970.     lea    _datestr(a4),a0
  1971.     move.l    a0,d0            ;return((char *)&datestr[0])
  1972.  
  1973. ffddone:
  1974.     movem.l    (sp)+,d3-d7/a4
  1975.     unlk    a5
  1976.     rts
  1977.  
  1978. ffdbaddate:
  1979.     lea    _baddatestr(a4),a0    ;return (" <Invalid Date> ");
  1980.     move.l    a0,d0
  1981.     bra    ffddone
  1982.  
  1983. *----------------------------------------------------------------------
  1984. * LONG iswild(name)
  1985. *   char *name;
  1986. *
  1987. * Search a string for wild characters, return 1 if found
  1988. *----------------------------------------------------------------------
  1989.     XDEF    _iswild
  1990. _iswild:
  1991.     movea.l    4(sp),a0        ;Grab string pointer
  1992.     moveq    #0,d0            ;Clear out our character register
  1993. ischk1:
  1994.     move.b    (a0)+,d0        ;Grab a char
  1995.      beq    iwdone            ;Might be end of string?
  1996.     cmpi.b    #'*',d0            ;Is it *?
  1997.      beq    iswdone            ;yep, is wild
  1998.     cmpi.b    #'?',d0            ;Is it a qmark
  1999.      bne    ischk1            ;Nope, check next character
  2000.  
  2001. iswdone:
  2002.     moveq    #1,d0
  2003. iwdone:
  2004.     rts
  2005.  
  2006.  
  2007. * ------------------------------------------------------------------------
  2008. ; Compare a wild card name with a normal name
  2009. ; LONG wildmatch (name, wild)
  2010. ;   char *name, *wild;
  2011. * ------------------------------------------------------------------------
  2012.     XDEF    _wildmatch
  2013. _wildmatch:
  2014.     link    a5,#-64
  2015.     movem.l    d3/a2-a3,-(sp)
  2016.  
  2017.     movea.l    8(a5),a2        ;Grab name
  2018.     movea.l    12(a5),a3        ;Grab pattern
  2019.     lea    -64(a5),a0        ;back[0][0]
  2020.     lea    -60(a5),a1        ;back[0][1]
  2021.  
  2022.     moveq    #0,d3            ;bi = 0
  2023.  
  2024. wmloop1:
  2025.     tst.b    (a2)            ;End of name?
  2026.      bne    wmnoteon
  2027.     tst.b    (a3)            ;End of pattern?
  2028.      beq    wmmatched        ;Yep, we matched
  2029.  
  2030. wmnoteon:
  2031.     cmpi.b    #'*',(a3)        ;Is it a splat?
  2032.      bne    wmnotstar        ;Nope, maybe '?'
  2033.  
  2034.     cmpi.w    #64,d3            ;Have we hit max expression depth?
  2035.      beq    wmnomatch        ;Yep, ran out of room in recursion table
  2036.  
  2037. ;back[bi][0] = w
  2038.     move.l    a3,0(a0,d3.w)        ;Stash pointer to this '*' in table
  2039.  
  2040. ;back[bi][1] = n
  2041.     move.l    a2,0(a1,d3.w)
  2042.  
  2043.     addq.w    #8,d3            ;++bi
  2044.     addq.w    #1,a3            ;++w
  2045.     bra    wmloop1            ;Check next
  2046.  
  2047. wmgoback:
  2048.     subq.w    #8,d3            ;--bi
  2049.     move.l    a0,d0
  2050. wmback1:
  2051.     tst.w    d3            ;while (bi >= 0 && *back[bi][1] == '\x0')
  2052.      blt    wmbacked
  2053.     movea.l    0(a1,d3.l),a0
  2054.     tst.b    (a0)
  2055.      bne    wmbacked
  2056.  
  2057.     subq.w    #8,d3            ;--bi
  2058.     bra    wmback1
  2059.  
  2060. wmbacked:
  2061.     tst.w    d3            ;if (bi < 0)
  2062.      blt    wmnomatch        ;return (0)
  2063.  
  2064.     movea.l    d0,a0
  2065.     movea.l    0(a0,d3.w),a3        ;w = back[bi][0] + 1
  2066.     addq.w    #1,a3    
  2067.  
  2068.     addq.l    #1,0(a1,d3.w)
  2069.     movea.l    0(a1,d3.l),a2        ;n = ++back[bi][1]
  2070.  
  2071.     addq.w    #8,d3            ;++bi
  2072.     bra    wmloop1
  2073.  
  2074. wmnotstar:
  2075.     cmpi.b    #'?',(a3)        ;Is it '?'
  2076.      bne    wmnotqmark
  2077.  
  2078.     tst.b    (a2)            ;Reached end of string?
  2079.      bne    wmincpoint        ;Nope, move on to next char
  2080.  
  2081.     tst.w    d3            ;Are we at top level of expression?
  2082.      beq    wmnomatch        ;Yep, expression didn't match
  2083.     bra    wmgoback        ;Otherwise pop a level and try to match
  2084.  
  2085. wmnotqmark:
  2086.     move.b    (a2),d0            ;Grab a char from bstr
  2087.     cmpi.b    #$40,d0            ;less than @ character?
  2088.      bls    1$            ;Yep
  2089.     cmpi.b    #$5a,d0            ;Greater than Z?
  2090.      bhi    1$            ;Yep
  2091.     addi.b    #$20,d0
  2092. 1$
  2093.     move.b    (a3),d1            ;Grab a char from bstr
  2094.     cmpi.b    #$40,d1            ;less than @ character?
  2095.      bls    2$            ;Yep
  2096.     cmpi.b    #$5a,d1            ;Greater than Z?
  2097.      bhi    2$            ;Yep
  2098.     addi.b    #$20,d1
  2099. 2$
  2100.     cmp.b    d0,d1            ;*n = *w?
  2101.      beq    wmincpoint        ;Yep, move on past
  2102.  
  2103.     tst.w    d3            ;Are we at top expression level?
  2104.      beq    wmnomatch        ;Yep, they didn't match
  2105.     bra    wmgoback        ;Nope, process next part
  2106.  
  2107. wmincpoint:
  2108.     tst.b    (a2)            ;Done with name?
  2109.      beq    wmnamend        ;Yep
  2110.     addq.w    #1,a2            ;Otherwise increment name pointer
  2111.  
  2112. wmnamend:
  2113.     tst.b    (a3)            ;End of pattern?
  2114.      beq    wmmatched        ;Yep, we matched
  2115.     addq.w    #1,a3            ;Otherwise inc wild pointer, match next char
  2116.     bra    wmloop1
  2117.  
  2118. wmmatched:
  2119.     moveq    #1,d0
  2120.     bra    wmdone
  2121.  
  2122. wmnomatch:
  2123.     moveq    #0,d0
  2124.  
  2125. wmdone:
  2126.     movem.l    (sp)+,d3/a2-a3
  2127.     unlk    a5
  2128.     rts
  2129.  
  2130. * --------------------------------------------------------------------- *
  2131. * void SortFibs (keytype, direction, fibheadp)
  2132. *           d0       d1         a0
  2133. *  int keytype;
  2134. *  struct FibEntry *fibheadp;
  2135. *
  2136. * Selection sort a linked list of FibEntrys based on a keycode         *
  2137. * --------------------------------------------------------------------- *
  2138.     XDEF    _SortFibs
  2139. _SortFibs:
  2140.     link    a5,#0
  2141.     movem.l    d2-d4/a2-a3/a6,-(sp)
  2142.  
  2143.     move.l    d0,d2            ;Save keytype
  2144.     move.l    d1,d4            ;Save direction of sort
  2145.     movea.l    a0,d3            ;Save fibheadp
  2146.     movea.l    a0,a2            ;a2 = a0 = i
  2147.  
  2148. sfILoop:
  2149.     cmp.l    (a2),d3            ;i->NextFib != fibheadp?
  2150.      beq    sfdone            ;Nope, wrapped around to start
  2151.     movea.l    a2,a6            ;k = i
  2152.     movea.l    (a2),a3            ;j = i->NextFib
  2153.  
  2154. sfJLoop:
  2155.     cmp.l    a3,d3            ;j != fibheadp?
  2156.      beq    sfJdone            ;Nope compared them all, see if swapped any
  2157.     movea.l    8(a6),a0        ;a0 = k->Fibp
  2158.     movea.l    8(a3),a1        ;a1 = j->Fibp
  2159.     move.l    d2,d0            ;d0 = keytype
  2160.     jsr    _CompFibs        ;d0 = CompFibs(keytype, k->Fibp, j->Fibp)
  2161.     tst.w    d4            ;Reverse sort?
  2162.      beq    1$            ;Nope
  2163.     bchg.l    #0,d0            ;Else reverse sense of return
  2164. 1$
  2165.     tst.l    d0            ;Return != 0?
  2166.      beq    sfNextJ            ;Nope, these two are in order
  2167.     movea.l    a3,a6            ;else k = j, this is new swap
  2168.  
  2169. sfNextJ:
  2170.     movea.l    (a3),a3            ;j = j->NextFib
  2171.     bra    sfJLoop            ;Check bounds
  2172.  
  2173. sfJdone:
  2174.     cmpa.l    a6,a2            ;k != i, did we swap?
  2175.      beq    sfNextI            ;Nope, i was in correct position already
  2176.     move.l    8(a6),d0
  2177.     move.l    8(a2),8(a6)
  2178.     move.l    d0,8(a2)        ;Else SwapFibs (k, i)
  2179.  
  2180. sfNextI:
  2181.     movea.l    (a2),a2            ;i = i->NextFib
  2182.     bra    sfILoop            ;Check bounds
  2183.  
  2184. sfdone:
  2185.     movem.l    (sp)+,d2-d4/a2-a3/a6
  2186.     unlk    a5
  2187.     rts
  2188.  
  2189. * --------------------------------------------------------------------- *
  2190. * int CompFibs (keytype, a, b)
  2191. *         d0     a0 a1
  2192. *   int keytype;
  2193. *   struct FileInfoBlock *a, *b;
  2194. *
  2195. * Used by SortFibs to determine precedence of Fibs.
  2196. * --------------------------------------------------------------------- *
  2197.     XDEF    _CompFibs
  2198. _CompFibs:
  2199.     tst.w    d0            ;Alphabetize?
  2200.      bne    cfnalpha        ;Nope
  2201.  
  2202. * Compare lexigraphically, ignoring case differences
  2203. cfalpha:
  2204.     lea    fib_FileName(a0),a0    ;a = &Fipb->fib_FileName
  2205.     lea    fib_FileName(a1),a1    ;b = &Fipb->fib_FileName
  2206.  
  2207. ;  for(; *a && tolower(*a) == tolower(*b); a++, b++);
  2208. lccstart:
  2209.     tst.b    (a0)            ;Is there a char here at source?
  2210.      beq    lcceostr        ;Nope, fell off the end
  2211.  
  2212.     move.b    (a1)+,d1        ;Grab a char from bstr
  2213.     cmpi.b    #$40,d1            ;less than @ character?
  2214.      bls    1$            ;Yep
  2215.     cmpi.b    #$5a,d1            ;Greater than Z?
  2216.      bhi    1$            ;Yep
  2217.     addi.b    #$20,d1
  2218. 1$
  2219.     move.b    (a0)+,d0        ;Grab a char from astr
  2220.     cmpi.b    #$40,d0            ;less than @ character?
  2221.      bls    2$            ;Yep
  2222.     cmpi.b    #$5a,d0            ;Greater than Z?
  2223.      bhi    2$            ;Yep
  2224.     addi.b    #$20,d0
  2225. 2$
  2226.     cmp.b    d0,d1            ;are they the same?
  2227.      beq    lccstart        ;Yep, compare next pair of chars
  2228.  
  2229. lcceostr:
  2230.     sub.b    d1,d0            ;return(tolower(*astr) - tolower(*bstr))
  2231.      bgt    cftrue            ; > 0?, return TRUE
  2232.     bra    cffalse            ;Else return FALSE
  2233.  
  2234. cfnalpha:
  2235.     subq.w    #1,d0            ;Size?
  2236.      bne    cfnsize            ;Nope
  2237.  
  2238. * Compare fib_Sizes
  2239.     move.l    fib_Size(a1),d0        ;d0 = bfib->fib_Size
  2240.     cmp.l    fib_Size(a0),d0        ;a->fib_Size > b->fib_Size?
  2241.      blt    cftrue            ;Yep, return TRUE
  2242.      bgt    cffalse            ;<, return FALSE
  2243.     bra    cfalpha            ;Else it's a tie, alphabetize
  2244.  
  2245. cfnsize:
  2246.     subq.w    #1,d0            ;Time?
  2247.      bne    cffalse            ;Nope, an error!
  2248.  
  2249. * Compare fib_DateStamps
  2250.     lea    fib_DateStamp(a0),a0    ;a = &afib->fib_DateStamp
  2251.     lea    fib_DateStamp(a1),a1    ;b = &bfib->fib_DateStamp
  2252.     move.l    ds_Days(a1),d0        ;d0 = bdate->ds_Days
  2253.     cmp.l    ds_Days(a0),d0        ;a->ds_Days > b->ds_Days?
  2254.      blt    cftrue            ;Yep, a is older
  2255.      bgt    cffalse            ;Else if a < b, b is older
  2256.                     ;Else they are the same day, check min/tick
  2257.     move.l    ds_Minute(a0),d0
  2258.     sub.l    ds_Minute(a1),d0    ;d0 = amin - bmin
  2259.     muls    #3000,d0        ;     * 3000
  2260.     add.l    ds_Tick(a0),d0
  2261.     sub.l    ds_Tick(a1),d0        ;     + atick - btick
  2262.      bgt    cftrue            ;Hey, a > b
  2263.      blt    cffalse            ;a < b, return false
  2264.     bra    cfalpha            ;Else its the same date, alphabetize
  2265.  
  2266. cftrue:
  2267.     moveq    #1,d0
  2268.     rts
  2269. cffalse:
  2270.     moveq    #0,d0
  2271.     rts
  2272.  
  2273. * --------------------------------------------------------------------- *
  2274.     SECTION    __MERGED,DATA
  2275. * --------------------------------------------------------------------- *
  2276.     XDEF    _dayspermonth
  2277. _dayspermonth:
  2278.     dc.b    31,28,31,30,31,30,31,31,30,31,30,31
  2279.     XDEF    _datepat
  2280. _datepat:
  2281.     dc.b    '%02d-%02d-%02d %02d:%02d:%02d',0
  2282.     CNOP    0,2
  2283.     XDEF    _baddatestr
  2284. _baddatestr:
  2285.     dc.b    '00-00-00 00:00:00',0
  2286.     CNOP    0,2
  2287.  
  2288.     XDEF    gwbrstr
  2289. gwbrstr:
  2290.     dc.b    $9b,'0 q'
  2291.  
  2292. * --------------------------------------------------------------------- *
  2293.     SECTION    __MERGED,BSS
  2294. * --------------------------------------------------------------------- *
  2295.     XDEF    _datestr
  2296. _datestr:
  2297.     ds.b    40
  2298.  
  2299. * --------------------------------------------------------------------- *
  2300.     END
  2301. * --------------------------------------------------------------------- *
  2302. SHAR_EOF
  2303. cat << \SHAR_EOF > makefile
  2304. # -------------------------------------------
  2305. # LS 2.0 lmkfile by Justin V. McCormick 88/11/27
  2306. # -------------------------------------------
  2307. OBJS    = c2.o ls.o lssup.o
  2308. DEST    = lcs
  2309.  
  2310. ASM    = casm
  2311. ASFLAGS = -cv
  2312. AINC    = ainc:
  2313. LC    = lc
  2314. LC1    = lc1
  2315. LC2    = lc2
  2316. LCFLAGS = -ccfmsu -d2 -rr -v
  2317.  
  2318. LINK    = blink
  2319. LIBS     = lib:lcr.lib
  2320. LNMAP    = F H L S X PLAIN WIDTH 84 HEIGHT 0 SWIDTH 20
  2321.  
  2322. .a.o:
  2323.     $(ASM) -a $*.a -o$*.o -i$(AINC) $(ASFLAGS)
  2324.  
  2325. .c.o:
  2326.     $(LC) $(LCFLAGS) $*
  2327.  
  2328. $(DEST): $(OBJS)
  2329.     $(LINK) $(OBJS) to $(DEST) LIB $(LIBS) WITH $(DEST).lnk MAP $(DEST).map $(LNMAP)
  2330. SHAR_EOF
  2331. #    End of shell archive
  2332. exit 0
  2333. -- 
  2334. Bob Page, U of Lowell CS Dept.  page@swan.ulowell.edu  ulowell!page
  2335. Have five nice days.
  2336.